/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC10.PRO

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1e 00 66 6f 72 20 6c 61 | 73 74 20 77 69 74 68 20 |..for la|st with |
|00000010| 78 20 3d 20 22 78 22 0d | 0a 20 20 20 69 6e 70 75 |x = "x".|.   inpu|
|00000020| 74 2e 6e 6f 20 3d 20 6c | 61 73 74 2e 6e 6f 20 2b |t.no = l|ast.no +|
|00000030| 20 31 0d 0a 20 20 20 6c | 61 73 74 2e 6e 6f 20 3d | 1..   l|ast.no =|
|00000040| 20 69 6e 70 75 74 2e 6e | 6f 0d 0a 20 20 20 75 70 | input.n|o..   up|
|00000050| 64 61 74 65 20 72 65 63 | 6f 72 64 0d 0a 6e 65 78 |date rec|ord..nex|
|00000060| 74 0d 0a 69 66 20 69 6e | 70 75 74 2e 6d 69 6e 73 |t..if in|put.mins|
|00000070| 20 3d 20 62 6c 61 6e 6b | 20 74 68 65 6e 20 69 6e | = blank| then in|
|00000080| 70 75 74 2e 6d 69 6e 73 | 20 3d 20 30 0d 0a 66 6f |put.mins| = 0..fo|
|00000090| 72 20 52 65 63 6f 72 64 | 73 20 6e 65 77 20 72 65 |r Record|s new re|
|000000a0| 63 6f 72 64 0d 0a 20 20 | 20 63 6f 70 79 20 61 6c |cord..  | copy al|
|000000b0| 6c 20 66 72 6f 6d 20 69 | 6e 70 75 74 0d 0a 6e 65 |l from i|nput..ne|
|000000c0| 78 74 0d 0a 66 6f 72 20 | 63 75 73 74 6f 6d 65 72 |xt..for |customer|
|000000d0| 73 20 77 69 74 68 20 66 | 69 6c 65 20 3d 20 69 6e |s with f|ile = in|
|000000e0| 70 75 74 2e 66 69 6c 65 | 0d 0a 20 20 20 63 75 73 |put.file|..   cus|
|000000f0| 74 6f 6d 65 72 73 2e 42 | 61 6c 61 6e 63 65 20 3d |tomers.B|alance =|
|00000100| 20 63 75 73 74 6f 6d 65 | 72 73 2e 62 61 6c 61 6e | custome|rs.balan|
|00000110| 63 65 20 2b 20 49 6e 70 | 75 74 2e 50 72 69 63 65 |ce + Inp|ut.Price|
|00000120| 0d 0a 20 20 20 75 70 64 | 61 74 65 20 72 65 63 6f |..   upd|ate reco|
|00000130| 72 64 0d 0a 6e 65 78 74 | 0d 0a 66 6f 72 20 69 6e |rd..next|..for in|
|00000140| 68 61 6e 64 0d 0a 20 20 | 20 69 6e 68 61 6e 64 2e |hand..  | inhand.|
|00000150| 74 6f 74 61 6c 20 3d 20 | 69 6e 68 61 6e 64 2e 74 |total = |inhand.t|
|00000160| 6f 74 61 6c 20 2b 20 69 | 6e 70 75 74 2e 50 72 69 |otal + i|nput.Pri|
|00000170| 63 65 0d 0a 20 20 20 75 | 70 64 61 74 65 20 72 65 |ce..   u|pdate re|
|00000180| 63 6f 72 64 0d 0a 6e 65 | 78 74 0d 0a 66 6f 72 20 |cord..ne|xt..for |
|00000190| 43 75 72 72 65 6e 74 73 | 74 61 66 66 0d 0a 20 20 |Currents|taff..  |
|000001a0| 20 43 75 72 72 65 6e 74 | 73 74 61 66 66 2e 4e 61 | Current|staff.Na|
|000001b0| 6d 65 20 3d 20 69 6e 70 | 75 74 2e 53 74 61 66 66 |me = inp|ut.Staff|
|000001c0| 0d 0a 20 20 20 63 75 72 | 72 65 6e 74 73 74 61 66 |..   cur|rentstaf|
|000001d0| 66 2e 74 79 70 65 20 3d | 20 69 6e 70 75 74 2e 74 |f.type =| input.t|
|000001e0| 79 70 65 0d 0a 20 20 20 | 75 70 64 61 74 65 20 72 |ype..   |update r|
|000001f0| 65 63 6f 72 64 0d 0a 6e | 65 78 74 0d 0a 66 6f 72 |ecord..n|ext..for|
|00000200| 20 73 74 61 66 66 20 77 | 69 74 68 20 4e 61 6d 65 | staff w|ith Name|
|00000210| 20 3d 20 69 6e 70 75 74 | 2e 53 74 61 66 66 0d 0a | = input|.Staff..|
|00000220| 20 20 20 73 74 61 66 66 | 2e 63 68 61 72 67 65 61 |   staff|.chargea|
|00000230| 62 6c 65 20 3d 20 73 74 | 61 66 66 2e 63 68 61 72 |ble = st|aff.char|
|00000240| 67 65 61 62 6c 65 20 2b | 20 69 6e 70 75 74 2e 48 |geable +| input.H|
|00000250| 72 73 20 2a 20 36 30 20 | 2b 20 69 6e 70 75 74 2e |rs * 60 |+ input.|
|00000260| 6d 69 6e 73 0d 0a 20 20 | 20 73 74 61 66 66 2e 74 |mins..  | staff.t|
|00000270| 6f 74 61 6c 20 3d 20 73 | 74 61 66 66 2e 74 6f 74 |otal = s|taff.tot|
|00000280| 61 6c 20 2b 20 69 6e 70 | 75 74 2e 70 72 69 63 65 |al + inp|ut.price|
|00000290| 0d 0a 20 20 20 75 70 64 | 61 74 65 20 72 65 63 6f |..   upd|ate reco|
|000002a0| 72 64 0d 0a 6e 65 78 74 | 0d 0a 0d 0a 0d 0a 0d 0a |rd..next|........|
|000002b0| 04 00 54 69 6d 65 20 53 | 68 65 65 74 20 20 20 20 |..Time S|heet    |
|000002c0| 20 20 20 20 20 20       |                         |        |        |
+--------+-------------------------+-------------------------+--------+--------+